<% ha = int(request("ha")) %> <% Veritabani_Yol=SERVER.MAPPATH("db/fuar.mdb") Set Baglan=Server.CreateObject("Adodb.Connection") Baglan.Open "DBQ=" & Veritabani_Yol & ";Driver={Microsoft Access Driver (*.mdb)}" %> <% set rsk=baglan.execute("select*from tbl where id = "& int(ha) &"") Do while not rsk.eof isim = rsk("fuarad") aciklama = rsk("aciklama") %> <% rsk.movenext loop%> TURKUAZ DECOR
 
 
<%=isim%>
<%=aciklama%>
<% Dim adoCon Dim adoQuery 'Buda ACCESS için Set adoCon = Server.CreateObject("ADODB.Connection") adoQuery = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/fuar.mdb") adoCon.Open (adoQuery) Set rsu = Server.CreateObject("Adodb.Recordset") sql="SELECT * FROM galeri where knt = "&int(ha)&"" rsu.Open sql,adoCon,1 On Error Resume Next BirSayfadaVeriAdedi = 8 'hersayfada 20 tane göster page = CInt(Request("page")) ' Geçerli Sayfa If (page ="" or page = 0) Then page = 1 Else page=page rsu.pageSize = BirSayfadaVeriAdedi rsu.absolutePage=page %>
<% i = 0 Do While Not rsu.Eof and i <% If i Mod 4=3 Then Response.Write "" End If i = i + 1 rsu.Movenext : Loop %>

 

<% 'Şimdi sayfalamayı yapalım If page = 1 Then Response.Write " " Else a = page -1 Response.Write " << " End If If page + 5 > rsu.pagecount Then b = rsu.pagecount Else b = page + 5 End If If page < 5 Then c = 1 Else c = page - 5 End If For j = c To b If j = page Then Response.Write "" & j & "" Else Response.Write "" & j & " " End If Next If page = rsu.pagecount Then Response.Write " " Else a = page + 1 Response.Write " >> " End If rsu.close set rs = Nothing %>

Anasayfa | Ürünler | Hakkımızda | İletişim
                                Site Created By Netürk Copyright 2009 © Turkuaz. Her hakkı saklıdır.